library(tidyverse)
library(DeclareDesign)
library(rdss)

# to match the user-facing code
sims <- 2000
bootstrap_sims <- 2000

source("code/declarations/declaration_10.1.R")

diagnosands <- declare_diagnosands(power = mean(p.value <= 0.05))

diagnosis_10.2 <- 
  diagnose_design(declaration_10.1, 
                  diagnosands = diagnosands,
                  sims = sims, bootstrap_sims = bootstrap_sims)

write_rds(diagnosis_10.2, file = "diagnosis_objects/diagnosis_10.2.rds")
